﻿Imports System.Data
Imports System.Data.SqlClient
Imports Datos
Imports Entidad

Public Class NotaIngresoNegocio

    Dim dao As New NotaIngresoDatos

    Sub registrarNotaIngreso(ByVal ni As NotaIngreso)
        dao.registrarNotaIngreso(ni)
    End Sub

    Sub anularNotaIngreso(ByVal dcaCodigo As String)
        dao.anularNotaIngreso(dcaCodigo)
    End Sub

    Function verificarNotaIngresoActiva(ByVal codDocumento As String, ByVal tipoDoc As String) As Boolean
        Return dao.verificarNotaIngresoActiva(codDocumento, tipoDoc)
    End Function

    Sub anularNotaIngreso(ByVal tdoc As String, ByVal codDoc As String)
        dao.anularNotaIngreso(tdoc, codDoc)
    End Sub

End Class
